home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Q-R / Restaurants.cpt / Restaurants / background_10427.txt < prev    next >
Text File  |  1987-12-20  |  8KB  |  344 lines
  1. -- background: 10427 from stack: in
  2. -- bmap block id: 11394
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Indian
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11. on NewCard
  12.   set the lockScreen to true
  13.   doMenu "New Button"
  14.   set name of button "New Button" to "¬¢"
  15.   set style of button ¬¢ to checkBox
  16.   set rect of button ¬¢ to 37,313,65,329
  17.   -- now construct script for the new button
  18.   put "on mouseUp" & return into buttonScript
  19.   put "set hilite of button ID 1 to TRUE" & return after buttonScript
  20.   put "set hilite of button ID 2 to FALSE" & return after buttonScript
  21.   put "set hilite of button ID 3 to FALSE" & return after buttonScript
  22.   put "set hilite of button ID 4 to FALSE" & return after buttonScript
  23.   put "end mouseUp" & return after buttonScript
  24.   set script of button ¬¢ to buttonScript
  25.   show button ¬¢
  26.   doMenu "New Button"
  27.   set name of button "New Button" to "$"
  28.   set style of button $ to checkBox
  29.   set rect of button $ to 81,313,109,329
  30.   -- now construct script for the new button
  31.   put "on mouseUp" & return into buttonScript
  32.   put "set hilite of button ID 1 to FALSE" & return after buttonScript
  33.   put "set hilite of button ID 2 to TRUE" & return after buttonScript
  34.   put "set hilite of button ID 3 to FALSE" & return after buttonScript
  35.   put "set hilite of button ID 4 to FALSE" & return after buttonScript
  36.   put "end mouseUp" & return after buttonScript
  37.   set script of button $ to buttonScript
  38.   show button $
  39.   doMenu "New Button"
  40.   set name of button "New Button" to "$$"
  41.   set style of button "$$" to checkBox
  42.   set rect of button "$$" to 125,313,160,329
  43.   -- now construct script for the new button
  44.   put "on mouseUp" & return into buttonScript
  45.   put "set hilite of button ID 1 to FALSE" & return after buttonScript
  46.   put "set hilite of button ID 2 to FALSE" & return after buttonScript
  47.   put "set hilite of button ID 3 to TRUE" & return after buttonScript
  48.   put "set hilite of button ID 4 to FALSE" & return after buttonScript
  49.   put "end mouseUp" & return after buttonScript
  50.   set script of button "$$" to buttonScript
  51.   show button "$$"
  52.   doMenu "New Button"
  53.   set name of button "New Button" to "$$$"
  54.   set style of button "$$$" to checkBox
  55.   set rect of button "$$$" to 176,313,217,329
  56.   -- now construct script for the new button
  57.   put "on mouseUp" & return into buttonScript
  58.   put "set hilite of button ID 1 to FALSE" & return after buttonScript
  59.   put "set hilite of button ID 2 to FALSE" & return after buttonScript
  60.   put "set hilite of button ID 3 to FALSE" & return after buttonScript
  61.   put "set hilite of button ID 4 to TRUE" & return after buttonScript
  62.   put "end mouseUp" & return after buttonScript
  63.   set script of button "$$$" to buttonScript
  64.   show button "$$$"
  65.   choose browse tool
  66.   global IndianNumber
  67.   add 1 to IndianNumber
  68. end NewCard
  69.  
  70. on CutCard
  71.   global IndianNumber
  72.   subtract 1 from IndianNumber
  73. end CutCard
  74.  
  75. on DeleteCard
  76.   global IndianNumber
  77.   subtract 1 from IndianNumber
  78. end DeleteCard
  79.  
  80.  
  81.  
  82.  
  83.  
  84. -- part 17 (field)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=21 top=149 right=314 bottom=223
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 2
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: 
  96.  
  97.  
  98. -- part 18 (field)
  99. -- low flags: 00
  100. -- high flags: 0000
  101. -- rect: left=237 top=102 right=151 bottom=485
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 0
  105. -- font id: 2
  106. -- text size: 18
  107. -- style flags: 0
  108. -- line height: 24
  109. -- part name: 
  110.  
  111.  
  112. -- part 21 (field)
  113. -- low flags: 00
  114. -- high flags: 0000
  115. -- rect: left=237 top=152 right=208 bottom=485
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 0
  119. -- font id: 2
  120. -- text size: 14
  121. -- style flags: 0
  122. -- line height: 18
  123. -- part name: 
  124.  
  125.  
  126. -- part 22 (field)
  127. -- low flags: 00
  128. -- high flags: 0000
  129. -- rect: left=237 top=209 right=229 bottom=485
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 0
  133. -- font id: 2
  134. -- text size: 14
  135. -- style flags: 0
  136. -- line height: 18
  137. -- part name: 
  138.  
  139.  
  140. -- part 24 (button)
  141. -- low flags: 00
  142. -- high flags: 0000
  143. -- rect: left=419 top=228 right=253 bottom=443
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 15420 / 15420
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: Prev
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   visual effect wipe right
  155.   go to previous card
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 25 (button)
  161. -- low flags: 00
  162. -- high flags: 0000
  163. -- rect: left=443 top=228 right=253 bottom=465
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 16560 / 16560
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: Next
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   visual effect wipe left
  175.   go to next card
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 27 (button)
  181. -- low flags: 00
  182. -- high flags: 0000
  183. -- rect: left=464 top=226 right=253 bottom=487
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 6720 / 6720
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: Return
  192. ----- HyperTalk script -----
  193. on mouseUp
  194.   visual effect iris close
  195.   go to first card
  196. end mouseUp
  197.  
  198.  
  199.  
  200. -- part 28 (button)
  201. -- low flags: 00
  202. -- high flags: 0000
  203. -- rect: left=237 top=231 right=260 bottom=269
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 21847 / 21847
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: Home
  212. ----- HyperTalk script -----
  213. on mouseUp
  214.   visual effect dissolve
  215.   go Home
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 29 (button)
  221. -- low flags: 00
  222. -- high flags: 0000
  223. -- rect: left=21 top=48 right=147 bottom=144
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: Wine Glass
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   visual effect dissolve fast
  235.   go to card id 3672
  236. end mouseUp
  237.  
  238.  
  239.  
  240.  
  241. -- part 30 (button)
  242. -- low flags: 00
  243. -- high flags: 0000
  244. -- rect: left=412 top=42 right=59 bottom=477
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 1
  248. -- font id: 0
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: Thai
  253. ----- HyperTalk script -----
  254. on mouseUp
  255.   visual effect dissolve fast
  256.   go to first card of background "Thai"
  257. end mouseUp
  258.  
  259.  
  260.  
  261.  
  262. -- part 31 (button)
  263. -- low flags: 00
  264. -- high flags: 0000
  265. -- rect: left=326 top=48 right=65 bottom=395
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 0 / 0
  268. -- text alignment: 1
  269. -- font id: 0
  270. -- text size: 12
  271. -- style flags: 0
  272. -- line height: 16
  273. -- part name: Seafood
  274. ----- HyperTalk script -----
  275. on mouseUp
  276.   visual effect dissolve fast
  277.   go to first card of background "Seafood"
  278. end mouseUp
  279.  
  280.  
  281.  
  282.  
  283. -- part 32 (button)
  284. -- low flags: 00
  285. -- high flags: 0000
  286. -- rect: left=246 top=56 right=72 bottom=310
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 1
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: Mexican
  295. ----- HyperTalk script -----
  296. on mouseUp
  297.   visual effect dissolve fast
  298.   go to first card of background "Mexican"
  299. end mouseUp
  300.  
  301.  
  302.  
  303.  
  304. -- part 33 (button)
  305. -- low flags: 00
  306. -- high flags: 0000
  307. -- rect: left=411 top=63 right=80 bottom=479
  308. -- title width / last selected line: 0
  309. -- icon id / first selected line: 0 / 0
  310. -- text alignment: 1
  311. -- font id: 0
  312. -- text size: 12
  313. -- style flags: 0
  314. -- line height: 16
  315. -- part name: Japanese
  316. ----- HyperTalk script -----
  317. on mouseUp
  318.   visual effect dissolve fast
  319.   go to first card of background "Japanese"
  320. end mouseUp
  321.  
  322.  
  323.  
  324.  
  325. -- part 34 (button)
  326. -- low flags: 00
  327. -- high flags: 0000
  328. -- rect: left=328 top=70 right=87 bottom=391
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 1
  332. -- font id: 0
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: Italian
  337. ----- HyperTalk script -----
  338. on mouseUp
  339.   visual effect dissolve fast
  340.   go to first card of background "Italian"
  341. end mouseUp
  342.  
  343.  
  344.